﻿Public Class Sargento : Inherits Infanteria

    Private Const FUERZA_SARG = FUERZA_INF + 1
    Private Const ATAQUE_SARG = ATAQUE_INF + 1
    Private Const VELOCIDAD_SARG = VELOCIDAD_INF
    Private Const VIDA_SARG = VIDA_INF
    Private Const COSTE_SARG = COSTE_INF + 4
    Private Const DEFENSA_SARG = DEFENSA_INF
    Private Const DISCIPILNA_SARG = DISCIPLINA_INF + 1
    Private Const TAMAÑO_SARG = TAMAÑO_INF


    Public Sub New()
        Me.Fuerza = FUERZA_SARG
        Me.Ataque = ATAQUE_SARG
        Me.Velocidad = VELOCIDAD_SARG
        Me.Vida = VIDA_SARG
        Me.Coste = COSTE_SARG
        Me.Defensa = DEFENSA_SARG
        Me.Disciplina = DISCIPILNA_SARG
        Me.Tamaño = TAMAÑO_SARG
    End Sub

End Class
